The Trig Explorer/The Trig Explorer.iso/mac/Explorer/Colorlit.dxr/00121.ls

Text File | 1998-07-22 | 481 b | 29 lines

on mouseUp
  set x to the mouseH - the left of sprite 13
  if (x >= 0) and (x <= 38) then
    go("V")
  end if
  if (x >= 39) and (x <= 129) then
    go("B")
  end if
  if (x >= 130) and (x <= 220) then
    go("B1")
  end if
  if (x >= 221) and (x <= 284) then
    go("G")
  end if
  if (x >= 285) and (x <= 340) then
    go("Y")
  end if
  if (x >= 341) and (x <= 416) then
    go("O")
  end if
  if x >= 417 then
    go("R")
  end if
end

on mouseDown
  puppetSound("click")
end